home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Online / News / Thor / rexx / Edge / Style.edge < prev    next >
Encoding:
Text File  |  1996-11-11  |  715 b   |  40 lines
  1. /* Style.edge
  2. ** $VER: Style.edge 1.1    (27.12.96)
  3. ** Original script by Troels Walsted Hansen
  4. ** Purpose: Apply style to word.
  5. **
  6. */
  7.  
  8. options results
  9. parse arg stylechar
  10.  
  11. /* needs Edge functions */
  12.  
  13. p = address() || ' ' || show('P',,)
  14. portname = pos('EDGE',p)
  15.  
  16. if portname > 0 then portname = word(substr(p,portname),1)
  17. else
  18. do
  19.     say 'No Edge port found!'
  20.     exit 10
  21. end
  22.  
  23. address(portname)
  24.  
  25. RequestString TITLE '"0-Bold  1-Italic  2-Reverse  3-Underline"'
  26.  
  27. select
  28.     when(result = 0) then stylechar = '*'
  29.     when(result = 1) then stylechar = '/'
  30.     when(result = 2) then stylechar = '#'
  31.     when(result = 3) then stylechar = '_'
  32.     otherwise exit
  33. end
  34.  
  35. Previous WORD
  36. 'TEXT' stylechar
  37. 'Position' EOW
  38. 'Cursor' RIGHT 1
  39. TEXT stylechar
  40.